home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 January / macformat-033.iso / mac / Demos / Voodoo Lounge / Voodoo Lounge Demo / Voodoo Lounge Demo.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1995-10-25  |  392 b   |  15 lines
  1. on findCD theFileName
  2.   global gTheCDPath
  3.   repeat with i = 66 to 90
  4.     set drive to numToChar(i)
  5.     set thisPath to string(drive & ":\" & theFileName)
  6.     set myFile to FileIO(mnew, "read", thisPath)
  7.     if objectp(myFile) then
  8.       myFile(mdispose)
  9.       return drive & ":\"
  10.       exit
  11.     end if
  12.   end repeat
  13.   alert("Please be sure the Voodoo Lounge Demo CD is in your CD drive.")
  14. end
  15.